function F=paramfun_lambda(x,alpha,sigma,theta,rho,ratrm,r,lambda,delta)
ratk19=(19/x)^theta;
e1=(sigma-theta)/theta;
e2=(rho*(theta-1))/(theta*(1-rho));
e3=(sigma-rho)/rho;
e4=(delta/(1-delta))^(1/(1-rho));
F=(1-sigma)*log(x)-log(alpha*sigma*(1-lambda)/r)-(sigma/rho)*log(1-delta)-e1*log(1-lambda+(lambda*ratk19))-e3*log(1+((ratrm*e4/((1-lambda)^(rho/(1-rho))))*((1-lambda+(lambda*ratk19))^e2)));
end